home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 2
/
Atari Mega Archive CD - Volume 2.iso
/
8bit
/
cislib_a
/
fuji.act
< prev
next >
Wrap
Text File
|
1995-04-22
|
3KB
|
176 lines
; Atari LOGO
; Translated from the BASIC
; by Leo Laporte, 10/19/83
PROC fuji()
BYTE top, bottom, xpos, cntr = [0]
BYTE ARRAY data =
[ 37 41 43 45 46 29 48 35 49 37 50
39 51 41 52 43 53 44 54 45 55 46
55 47 56 48 57 48 57 49 58 49 58
50 59 50 59 51 59 51 59 52 60 52
60 52 60 52 60 52 60 52 60 52 60 ]
CARD x
color = 1
top = 5
bottom = 61
FOR xpos = 80 TO 84
DO
Plot(xpos, top)
Drawto(xpos, bottom)
Plot(160-xpos, top)
Drawto(160-xpos, bottom)
OD
FOR xpos = 86 TO 115
DO
IF xpos > 90 THEN
top = data(cntr) cntr ==+ 1
FI
bottom = data(cntr) cntr ==+ 1
Plot(xpos, top)
Drawto(xpos, bottom)
Plot(160-xpos, top)
Drawto(160-xpos, bottom)
OD
RETURN
PROC letters()
BYTE x,y,i
CARD cntr=[0]
BYTE ARRAY atari = [
49 55 61 76 81 87 93 104 0
48 56 61 76 80 88 93 105 0
47 57 61 76 79 89 93 106 0
46 58 61 76 78 90 93 107 0
45 50 54 59 67 70 77 82 86 91 93 96 103 108 0
45 49 55 59 67 70 77 81 87 91 93 96 104 108 0
45 48 56 59 67 70 77 80 88 91 93 96 104 108 0
45 48 56 59 67 70 77 80 88 91 93 96 104 108 0
45 48 56 59 67 70 77 80 88 91 93 96 104 108 0
45 48 56 59 67 70 77 80 88 91 93 96 103 108 0
45 59 67 70 77 91 93 107 0
45 59 67 70 77 91 93 106 0
45 59 67 70 77 91 93 105 0
45 59 67 70 77 91 93 104 0
45 48 56 59 67 70 77 80 88 91 93 96 100 105 0
45 48 56 59 67 70 77 80 88 91 93 96 101 106 0
45 48 56 59 67 70 77 80 88 91 93 96 102 107 0
45 48 56 59 67 70 77 80 88 91 93 96 103 108 0
45 48 56 59 67 70 77 80 88 91 93 96 104 109 0
45 48 56 59 67 70 77 80 88 91 93 96 105 109 0
1 1 ]
i = 66
color = 1
DO
x = atari(cntr) cntr ==+ 1
IF x = 0 THEN
x = 112
y = 115
Plot(x,i)
Drawto(y,i)
i ==+ 1
ELSE y = atari(cntr) cntr ==+ 1
IF x = 1 AND y = 1 THEN EXIT FI
Plot(x,i)
Drawto(y,i)
IF x = 112 THEN i ==+ 1 FI
FI
OD
RETURN
PROC delay(BYTE time)
BYTE jifs = 20
jifs = 0
DO
UNTIL (jifs >= time)
OD
RETURN
PROC jingle()
BYTE ARRAY music=
[ 121 121 121 121
91 96 108 121 0 ]
BYTE note, cntr = [0]
DO
note = music(cntr) cntr ==+ 1
IF note = 0 THEN EXIT FI
SndRst()
Delay(2)
Sound(0, note, 10, 8)
Delay(8)
OD
Delay(12)
SndRst()
RETURN
PROC scroll()
BYTE wsync = 54282,
vcount = 54283,
clr = 53270,
ch = 764,
cntr, chgclr = [0],
incclr, delay
DO
FOR cntr = 1 TO 4
DO
incclr = chgclr
FOR delay = 1 TO 9 DO OD
DO
wsync = 0
clr = incclr
incclr ==+ 1
UNTIL vcount & 128
OD
OD
chgclr ==+ 1
UNTIL ch <> 255
OD
RETURN
PROC main()
Graphics(23)
fuji()
letters()
jingle()
scroll()
RETURN